home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1997 January / pcgo 1997-01.iso / demo / univengl / databook.smm < prev    next >
Encoding:
INI File  |  1996-05-08  |  9.1 KB  |  385 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _DEFAULT.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP LaserJet Series II
  13. [port]
  14.     LPT2:
  15. [lang]
  16.     7
  17. [fldnames]
  18.     Field1
  19.     Field2
  20.     Field3
  21.     Field4
  22.     Field5
  23.     Field6
  24.     Field7
  25.     Field8
  26. [desc]
  27.     DDE Interface f<\|>r DataBook W<\v>rterb<\|>cher: MenuErweiterung, <\\>bersetzen und Nachschlagen
  28.     
  29.     
  30.     
  31.     
  32.     831661383
  33.     23
  34.     736794985
  35.     253
  36.     2
  37.     0
  38.     0
  39.     0
  40.     0
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     1
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53.     
  54.     
  55. [lnopts]
  56.     2
  57.     Text Abstand
  58.     1
  59. [docopts]
  60.     5
  61.     2
  62. [GramStyle]
  63.     
  64. [l1]
  65.     0
  66. [pg]
  67.     2
  68.     56 0 25 0 0 1 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  69.     78 0 19 1025 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  70. [edoc]
  71. <:S+-1><:#240,9360><:f200,BArial,0,0,0><-!><+!>' Erstellt von EP<-!><+!><:f200,BArial,0,0,0> Electronic Publishing  Partners GmbH; N<\|>rnberg<-!>
  72.  
  73. <:#231,9360><:f200,BArial,0,0,0>
  74.  
  75. <:#231,9360><:f200,BArial,0,0,0>FUNCTION DBMenuExpand<:f200,BArial,0,0,0>()
  76.  
  77. <:f200,BArial,0,0,0><:f><:f200,BArial,><:f200,BArial,>Englisch=0<:f><:f200,BArial,><:f><:f200,BArial,><:f><:f200,BArial,0,0,0>
  78.  
  79. <:f200,BArial,>MacFile = GetRunningMacroFile$()<:f><:f200,BArial,><:f><:f200,BArial,>
  80.  
  81. <:f200,BArial,>IF<:f><:f200,BArial,> Englisch = 1
  82.  
  83. <:f200,BArial,><:f><:f200,BArial,>    menutitle$=<:f><:f200,BArial,> "Too&ls<:f><:f200,BArial,>"<:f><:f200,BArial,>
  84.  
  85. <:f200,BArial,>ELSE
  86.  
  87. <:f200,BArial,>    menutitle$=<:f><:f200,BArial,> "&Extras"<:f>
  88.  
  89. <:f200,BArial,>ENDIF
  90.  
  91. <+@><:f200,BArial,><:f><:f200,BArial,><:f><:f200,BArial,><:f><:f200,BArial,><:f><:f200,BArial,0,0,0>menutext$ = "<:f200,BArial,0,0,0>DataBook<:f200,BArial,0,0,0> 
  92. <:f200,BArial,><\\>bersetzen...<:f200,BArial,0,0,0>"
  93.  
  94. <+@><:#231,9360><:f200,BArial,>statustext$ = "Startet <:f200,BArial,0,0,0>DataBook<:f200,BArial,0,0,0> W<\v>rterb<\|>cher<:f200,BArial,> mit eingeschr<\d>nkter Funktionalit<\d>t: 
  95. <\\>bersetzmodus."
  96.  
  97. <:#231,9360><:f200,BArial,>DeleteMenuItem(1,<:f><:f200,BArial,>menutitle$<:f><:f200,BArial,>,<:f200,BArial,0,0,0>menutext$<:f200,BArial,>)<:f><:f200,BArial,>
  98.  
  99. <+@><:#231,9360><:f200,BArial,>InsertMenuItem(1,<:f><:f200,BArial,>menutitle$<:f><:f200,BArial,>,4, 
  100. <:f200,BArial,0,0,0>menutext$<:f200,BArial,>,"{MacFile}!<:f><:f200,BArial,0,0,0>DB<:f><:f200,BArial,0,0,0>Translate<:f><:f200,BArial,0,0,0>(<:f><:f200,BArial,0,0,0>)<:f><:f200,BArial,>", statustext$)
  101.  
  102. <+@><:#231,9360><:f200,BArial,0,0,0>menutext$ = "<:f200,BArial,0,0,0>DataBook<:f200,BArial,0,0,0> 
  103. <:f200,BArial,>Nachschlagen...<:f200,BArial,0,0,0>"
  104.  
  105. <+@><:#231,9360><:f200,BArial,>statustext$ = "Startet <:f200,BArial,0,0,0>DataBook<:f200,BArial,0,0,0> W<\v>rterb<\|>cher<:f200,BArial,> mit voller Funktionalit<\d>t: Nachschlagemodus."
  106.  
  107. <:#231,9360><:f200,BArial,>DeleteMenuItem(1, <:f><:f200,BArial,>menutitle$<:f><:f200,BArial,>,<:f200,BArial,0,0,0>menutext$<:f200,BArial,>)
  108.  
  109. <+@><:#231,9360><:f200,BArial,>InsertMenuItem(1,<:f><:f200,BArial,>menutitle$<:f><:f200,BArial,>,5, 
  110. <:f200,BArial,0,0,0>menutext$<:f200,BArial,>,"{MacFile}!DBAccess<:f><:f200,BArial,>()", statustext$)
  111.  
  112. <+@><:#231,9360><:f200,BArial,>END FUNCTION
  113.  
  114. <+@><:#231,9360><:f200,BArial,0,0,0>
  115.  
  116. <:#231,9360><:f200,BArial,0,0,0>FUNCTION DBAccess<:f200,BArial,0,0,0>(<:f200,BArial,0,0,0>T<:f><:f200,BArial,0,0,0>opic$<:f200,BArial,0,0,0>)
  117.  
  118. <+@><:#231,9360><:f200,BArial,0,0,0>section$ = <:f200,BArial,0,0,0>"DATABOOK<:f200,BArial,0,0,0>"
  119.  
  120. <+@><:#231,9360><:f200,BArial,0,0,0>entry$ = "DATABOOK<:f200,BArial,0,0,0>"
  121.  
  122. <+@><:#231,9360><:f200,BArial,0,0,0>IF LEN(CurShade$()) <<= 1
  123.  
  124. <+@><:#231,9360><:f200,BArial,0,0,0>    BrowseString$ = CurWord$()
  125.  
  126. <+@><:#231,9360><:f200,BArial,0,0,0>ELSE    
  127.  
  128. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>    BrowseString$ = CurShade$()
  129.  
  130. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>ENDIF
  131.  
  132. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>IF LEN(BrowseString$) <;>= 32000
  133.  
  134. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>    Message ("Der selektierte Text ist zu lang!")
  135.  
  136. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>    Goto Ende
  137.  
  138. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>ENDIF
  139.  
  140. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>' ***** Get current app name *****
  141.  
  142. <:S+-1><:#231,9360><:f200,BArial,0,0,0>Cnt = AppGetAppCount()
  143.  
  144. <:#231,9360><:f200,BArial,0,0,0>DIM Apps(Cnt)
  145.  
  146. <:#231,9360><:f200,BArial,0,0,0>AppGetAppNames(&Apps)
  147.  
  148. <:#231,9360><:f200,BArial,0,0,0>CurrentApp = Apps(1)
  149.  
  150. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>'<:f200,BArial,0,0,0> ***** Init DDE and start 
  151. <:f200,BArial,>App<:f200,BArial,0,0,0> if necessary ***** 
  152.  
  153. <+@><:#231,9360><:f200,BArial,0,0,0>Appl1$ = GetProfileString$(<:f200,BArial,0,0,0>section$<:f200,BArial,0,0,0>, 
  154. <:f200,BArial,0,0,0>entry$<:f200,BArial,0,0,0>) 
  155.  
  156. <+@><:#231,9360><:f200,BArial,0,0,0>Appl$ = strcat$(Appl1$,<:f200,BArial,0,0,0>entry$<:f200,BArial,0,0,0>)
  157.  
  158. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>ChanNum = DDEInitiate(Appl$, <:f200,BArial,0,0,0>entry$<:f200,BArial,0,0,0>)
  159.  
  160. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>OK  = FALSE
  161.  
  162. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>IF ChanNum = 0
  163.  
  164. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>    Exec(Appl$,entry$,1)
  165.  
  166. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>    FOR i = 1 to 10
  167.  
  168. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>        ChanNum = DDEInitiate(Appl$, <:f200,BArial,0,0,0>entry$<:f200,BArial,0,0,0>)
  169.  
  170. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>        IF ChanNum <;> 0
  171.  
  172. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>            OK = TRUE
  173.  
  174. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>            BREAK
  175.  
  176. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>        ENDIF
  177.  
  178. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>    NEXT
  179.  
  180. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>    IF not OK
  181.  
  182. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>        messtr$ =  Appl$ + "<:f200,BArial,0,0,0>kann nicht gestartet werden!"
  183.  
  184. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>        Message(messtr$<:f200,BArial,0,0,0>)
  185.  
  186. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>    Goto Ende
  187.  
  188. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>    ENDIF
  189.  
  190. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>ENDIF
  191.  
  192. <:#231,9360><:f200,BArial,0,0,0>DDEPoke (ChanNum, <:f200,BArial,0,0,0>topic$<:f200,BArial,0,0,0>, BrowseString$)
  193.  
  194. <:#231,9360><:f200,BArial,0,0,0>Zeile$ = DDEReceive$(ChanNum,topic$<:f200,BArial,0,0,0>) 
  195.  
  196. <:#231,9360><:f200,BArial,0,0,0>Type<:f200,BArial,0,0,0> (<:f200,BArial,0,0,0>Zeile$)
  197.  
  198. <:#231,9360><:f200,BArial,0,0,0>DDETerminate(ChanNum)
  199.  
  200. <:#231,9360><:f200,BArial,0,0,0>Ende:
  201.  
  202. <+@><:S+-1><:#231,9360><:f200,BArial,>HourGlass(0)
  203.  
  204. <:#231,9360><:f200,BArial,>IgnoreKeyboard(0)
  205.  
  206. <:#231,9360><:f200,BArial,0,0,0>ActivateApp(<:f200,BArial,0,0,0>CurrentApp<:f200,BArial,0,0,0>)
  207.  
  208. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>END FUNCTION<:f>
  209.  
  210. <:S+-1><:#284,9360>
  211.  
  212. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>FUNCTION DB<:f><:f200,BArial,0,0,0>Translate<:f><:f200,BArial,0,0,0>(<:f><:f200,BArial,0,0,0>)<:f>
  213.  
  214. <+@><:#231,9360><:f200,BArial,>Topic$=<:f200,BArial,0,0,0>"<:f200,BArial,0,0,0>Translate<:f200,BArial,0,0,0>"<:f>
  215.  
  216. <+@><:#231,9360><:f200,BArial,0,0,0>DBAccess(<:f><:f200,BArial,>Topic$<:f><:f200,BArial,0,0,0>)<:f>
  217.  
  218. <+@><:#231,9360><:f200,BArial,>END FUNCTION<:f>
  219.  
  220. <+@><:#231,9360><:f200,BArial,>
  221.  
  222. <+@><:#231,9360><:f200,BArial,0,0,0>FUNCTION DB<:f><:f200,BArial,0,0,0>Browse<:f><:f200,BArial,0,0,0>(<:f><:f200,BArial,0,0,0>)<:f>
  223.  
  224. <+@><:#231,9360><:f200,BArial,>Topic$=<:f200,BArial,0,0,0>"<:f200,BArial,0,0,0>Browse<:f200,BArial,0,0,0>"<:f>
  225.  
  226. <+@><:#231,9360><:f200,BArial,0,0,0>DBAccess(<:f><:f200,BArial,>Topic$<:f><:f200,BArial,0,0,0>)<:f>
  227.  
  228. <+@><:#231,9360><:f200,BArial,>END FUNCTION<:f>
  229.  
  230. <+@><:#284,9360>
  231.  
  232. <+@><:S+-1><:#231,9360><:f200,BArial,0,0,0>
  233.  
  234. >
  235.  
  236. [Embedded]
  237. 00007641
  238. >
  239. [macsum] 4
  240. DBMenuExpand 0 0 6 2
  241. DBAccess 540 1 14 20
  242. DBTranslate 1384 0 2 67
  243. DBBrowse 1451 0 2 72
  244. [macse]
  245. 14 DBMenuExpand
  246. 5 0
  247. 8 1
  248. 0 802
  249. 13
  250. 8 2
  251. 6 1
  252. 5 1
  253. 18 0
  254. 11 00000102
  255. 7 "Too&ls"
  256. 8 3
  257. 10 00000120
  258. 7 "&Extras"
  259. 8 3
  260. 7 "DataBook <\\>bersetzen..."
  261. 8 4
  262. 7 "Startet DataBook W<\v>rterb<\|>cher mit eingeschr<\d>nkter Funktionalit<\d>t: <\\>bersetzmodus."
  263. 8 5
  264. 0 520 1 "{3}" "{4}"
  265. 0 527 1 "{3}" 4 "{4}" "{2}!DBTranslate()" "{5}"
  266. 7 "DataBook Nachschlagen..."
  267. 8 4
  268. 7 "Startet DataBook W<\v>rterb<\|>cher mit voller Funktionalit<\d>t: Nachschlagemodus."
  269. 8 5
  270. 0 520 1 "{3}" "{4}"
  271. 0 527 1 "{3}" 5 "{4}" "{2}!DBAccess()" "{5}"
  272. 6 0
  273. 15
  274. 9
  275. 14 DBAccess
  276. 7 "DATABOOK"
  277. 8 2
  278. 7 "DATABOOK"
  279. 8 3
  280. 0 24
  281. 13
  282. 0 14 [X]
  283. 13
  284. 5 1
  285. 18 4
  286. 11 00000127
  287. 0 23
  288. 13
  289. 8 4
  290. 10 00000142
  291. 0 24
  292. 13
  293. 8 4
  294. 0 14 "{4}"
  295. 13
  296. 5 32000
  297. 18 2
  298. 11 00000240
  299. 0 3 "Der selektierte Text ist zu lang!"
  300. 10 00000803
  301. 0 1033
  302. 13
  303. 8 5
  304. 6 5
  305. 21 6 [X]
  306. 0 1034 &6
  307. 5 1
  308. 22 6
  309. 8 7
  310. 0 286 "{2}" "{3}"
  311. 13
  312. 8 8
  313. 0 16 "{8}" "{3}"
  314. 13
  315. 8 9
  316. 0 8 "{9}" "{3}"
  317. 13
  318. 8 10
  319. 5 0
  320. 8 11
  321. 6 10
  322. 5 0
  323. 18 0
  324. 11 00000725
  325. 0 22 "{9}" "{3}" 1
  326. 5 1
  327. 8 12
  328. 5 10
  329. 6 12
  330. 18 2
  331. 12 00000532
  332. 10 00000626
  333. 5 1
  334. 6 12
  335. 3 0
  336. 8 12
  337. 10 00000453
  338. 0 8 "{9}" "{3}"
  339. 13
  340. 8 10
  341. 6 10
  342. 5 0
  343. 18 3
  344. 11 00000613
  345. 5 1
  346. 8 11
  347. 10 00000626
  348. 10 00000497
  349. 6 11
  350. 1 3
  351. 11 00000725
  352. 6 9
  353. 7 "kann nicht gestartet werden!"
  354. 3 0
  355. 8 13
  356. 0 3 "{13}"
  357. 10 00000803
  358. 0 35 "{10}" "{0}" "{4}"
  359. 0 10 "{10}" "{0}"
  360. 13
  361. 8 14
  362. 0 6 "{14}"
  363. 0 9 "{10}"
  364. 0 296 0
  365. 0 32 0
  366. 0 38 "{7}"
  367. 6 1
  368. 15
  369. 9
  370. 14 DBTranslate
  371. 7 "Translate"
  372. 8 1
  373. 16 DBAccess "{1}"
  374. 6 0
  375. 15
  376. 9
  377. 14 DBBrowse
  378. 7 "Browse"
  379. 8 1
  380. 16 DBAccess "{1}"
  381. 6 0
  382. 15
  383. 9
  384. 00007666
  385.